﻿Public Class WebForm1
    Inherits System.Web.UI.Page


    'Protected Sub UploadButton_Click(ByVal sender As Object, ByVal e As EventArgs)
    '    'imgSubida.ImageUrl = ""

    '    'If updPDF.HasFile Then
    '    '    sName = updPDF.FileName
    '    '    sExt = Path.GetExtension(sName)


    '    'Dim fileName As [String] = updPDF.FileName()
    '    'savePath += fileName
    '    'updPDF.SaveAs(Server.MapPath(savePath))

    '    'If ValidaExtension(sExt) Then
    '    '    updPDF.SaveAs(MapPath("~/images/" & sName))
    '    '    'imgSubida.ImageUrl = "/images/" & sName
    '    '    'lblMensaje.Text = "Archivo cargado correctamente."
    '    'Else
    '    '    'lblMensaje.Text = "El archivo no es de tipo pdf."
    '    'End If
    '    'Else
    '    ''lblMensaje.Text = "Seleccione el archivo que desea subir."
    '    'End If
    'End Sub

    Private Function ValidaExtension(ByVal sExtension As String) As Boolean
        Select Case sExtension
            Case ".pdf"
                Return True
            Case Else
                Return False
        End Select
    End Function


    Protected Sub UploadButton_Click1(ByVal sender As Object, ByVal e As EventArgs) Handles UploadButton.Click
        'Dim savePath As [String] = "\uploads\"

        'If updPDF.HasFile Then

        '    Dim fileName As [String] = updPDF.FileName
        '    savePath += fileName
        '    'updPDF.SaveAs(Server.MapPath(savePath))

        '    If ValidaExtension(savePath) Then
        '        'updPDF.SaveAs(MapPath("~/images/" & sName))
        '        'imgSubida.ImageUrl = "/images/" & sName
        '        lblMensaje.Text = "Archivo cargado correctamente."
        '    Else
        '        lblMensaje.Text = "El archivo no es de tipo pdf."
        '    End If


        'End If

        Dim Rs As ADODB.Recordset



        ''hacemos la consulta sin parametros
        Rs = Datos.TraerTodos("TraeTODASLAsAlerGias", Nothing, "Aca va elnombre del modulo de donde llamamos a la funcion")


        'le digo q vaya a buscar a la funcion 
        GridView1.DataSource = FG.cargaUnDataTable(Rs)

        'esto se pone para que muestre los datos, Osea va siempre!!
        GridView1.DataBind()


    End Sub


    'Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click

    'Dim param(0) As ADODB.Parameter


    'Dim Resultado As Boolean





    '    If TextBox1.Text = "" Then
    '        MsgBox("FALTA DATO, ponganse las pilas!", MsgBoxStyle.Information, "AVISO")
    '        Exit Sub
    '    End If

    '    'aca le paso paso el parametro ,, es un bloque por cada dato q tenga q viajar a la base

    '    param(0) = New ADODB.Parameter
    '    param(0).Name = "@parametro1"  '<--nombre del parametro q esta en la base,, no es excencial es para q la funcion error sepa de que parametro hablamos 
    '    param(0).Type = ADODB.DataTypeEnum.adVarChar '<--tipo de dato 
    '    param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput '<---eesto no se toca es siempre igual
    '    param(0).Value = TextBox1.Text   ' <--el valor que le pasamos a la base
    '    param(0).Size = 255 'Si el dato es string ,, lleva longitud , los datos numerico no hacen falta ,,



    '    ''''''''''LLAMAMOS A LA FUNCION YYY FIJENSE QUE NO LE PASO EL GUION "_a" 
    '    Resultado = Datos.Agregar("agregarAlergia", param, "aCA SE PONE DESDE QUE MODULO ES LLAMADA LA FUNCION ")
    'End Sub


End Class